home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / tools / profiler / prf / prf.asm < prev    next >
Encoding:
Assembly Source File  |  1988-11-23  |  9.2 KB  |  318 lines
  1. ; 80286 ASSEMBLER
  2.  
  3.         PAGE        42, 132
  4.         TITLE        prf.asm
  5.         .286c
  6.  
  7.  
  8. VERSION    EQU 0001
  9. REVISION EQU 0000
  10. MODIFICATION EQU 0000    
  11. PRINT EQU 0000
  12.  
  13. ;
  14. ; 
  15. ; File:
  16. ;        prf.asm    - PROFILING TOOL
  17. ;
  18.  
  19. ;*******************************************************************************
  20. ;*                             INCLUDE FILES                                   *
  21. ;*******************************************************************************
  22.         INCLUDE    prf.h
  23.  
  24. ;*******************************************************************************
  25. ;*                               CONSTANTS                                     *
  26. ;*******************************************************************************
  27. PRFInterrupt    equ    88H
  28. PROFILE_DWORDS  equ    8192 
  29.  
  30. ;*******************************************************************************
  31. ;*                             PUBLIC SYMBOLS                                  *
  32. ;*******************************************************************************
  33.  
  34.         PUBLIC  FirstByte        ;used for TSR code
  35.         PUBLIC  LastByte        ;           "
  36.         PUBLIC  TimerISR        ;timer interrupt routine
  37.         PUBLIC    _PRF_SWEntry        ;prf software entry point
  38.                  
  39. ;*******************************************************************************
  40. ;*                                                                             *
  41. ;*                                                                             *
  42. ;*                                                                             *
  43. ;*                        DATA    STRUCTURES                                   *
  44. ;*                                                                             *
  45. ;*                                                                             *
  46. ;*                                                                             *
  47. ;*******************************************************************************
  48.     
  49. ;*******************************************************************************
  50. ;*                             SEGMENT STUFF                                   *
  51. ;*******************************************************************************
  52.  
  53. ; Code and data segment (SAME)
  54. CODE        SEGMENT PARA PUBLIC
  55.         assume cs:CODE
  56.  
  57. ;*******************************************************************************
  58. ;*                                                                             *
  59. ;*       ALL DATA BETWEEN  FirstByte:  AND  LastByte: REMAIN RESIDENT          *
  60. ;*                                                                             *
  61. ;*******************************************************************************
  62. FirstByte:              
  63.  
  64. ;*******************************************************************************
  65. ;*                  PRF EXTERNAL FUNCTION CALL JUMP TABLE                      *
  66. ;*******************************************************************************
  67. ; jump table for prf Software functions
  68. JumpTable    dw    OFFSET    PRF_START
  69.         dw    OFFSET    PRF_STOP
  70.  
  71. ;*******************************************************************************
  72. ;*                        PRF TIMER INTERRUPT VARIABLES                        *
  73. ;*******************************************************************************
  74.  
  75. TimerChain    dd    ?
  76. ProfileSegment    dw    0
  77.         even
  78.         dw    0
  79. ProfileData    dd    PROFILE_DWORDS dup (0)
  80.  
  81. ;*******************************************************************************
  82. ;*                                                                             *
  83. ;*                        PRF RESIDENT IDENTIFICATION                   *
  84. ;*             MUST BE PLACED JUST BEFORE PRF SOFTWARE ENTRY POINT             *
  85. ;*                                                                             *
  86. ;*******************************************************************************
  87.         db    'P','R','F'
  88.         dw    VERSION,REVISION,MODIFICATION,PRINT
  89.  
  90. ;*******************************************************************************
  91. ;*                                                                             *
  92. ;*                       PRF FUNCTION CALL ENTRY POINT                         *
  93. ;*  ENTRY:               SS:BP -> PARAMETERS                                   *
  94. ;*  EXIT:                DX:AX == RETURN PARAMETER                             *
  95. ;*                                                                             *
  96. ;*******************************************************************************
  97. _PRF_SWEntry:        
  98.         sti
  99.         push    ds            ;save registers
  100.         push    si
  101.         push    di
  102.  
  103. ; SS:BP --> parameters of call
  104.         mov    ax, cs            ;setup DS
  105.         mov    ds, ax
  106.         mov    es, ax
  107.         cld            
  108.  
  109. ; DS is PRF data segment (CS)
  110.         assume    cs:CODE, ds:CODE, es:CODE, ss:nothing
  111.         mov    bx, FunctionCode[bp]    ;get function code
  112.  
  113.         call    JumpTable[bx]        ;go to IT
  114.  
  115. PRF_SWBack:
  116.         pop    di            ;restore regs
  117.         pop    si
  118.         pop    ds                     
  119.         iret        
  120.  
  121. ;*******************************************************************************
  122. ;*                         PRF_START                                           *
  123. ;*******************************************************************************
  124.            
  125. PRF_START             proc    near
  126.             mov     cs:ProfileSegment, 0
  127.  
  128.             mov    ax, cs
  129.             mov    ds, ax
  130.  
  131.             mov    bx, OFFSET ProfileData
  132.             mov    cx, PROFILE_DWORDS
  133.             
  134.  
  135.             mov    word ptr [bx-2] , 0
  136. CLEAR_LOOP:        mov    word ptr [bx], 0
  137.             add    bx, 2         
  138.             mov    word ptr [bx], 0
  139.             add    bx, 2
  140.             loop    CLEAR_LOOP
  141.  
  142.             mov    ax, S0_CodeSegment[bp]
  143.             mov    cs:ProfileSegment, ax
  144.  
  145.             ret
  146.  
  147.         
  148. PRF_START             endp
  149.  
  150. ;*******************************************************************************
  151. ;*                         PRF_DEREGISTER_NAME                                 *
  152. ;*******************************************************************************
  153. PRF_STOP                proc    near
  154.  
  155.             mov    cs:ProfileSegment, 0
  156.             mov    ax, cs
  157.             mov    dx, ax
  158.             mov    ax, OFFSET ProfileData
  159.             ret
  160.  
  161. PRF_STOP                 endp
  162.                         
  163. ;*******************************************************************************
  164. ;*                                                                             *
  165. ;*                      PRF TIMER INTERRUPT ENTRY POINT                        *
  166. ;*                                                                             *
  167. ;*******************************************************************************
  168.  
  169. ; decrement timeouts, leave at zero when reaches zero
  170. TimerISR:            
  171.         test    cs: ProfileSegment, -1
  172.         je    TimerExit
  173.  
  174.         ;       FLAGS
  175.         ;       SEGMENT OF INTERRUPTEE
  176.         ; SP --->  OFFSET  OF INTERRUPTEE
  177.  
  178.         push    bp
  179.         mov    bp, sp
  180.  
  181.         ;       FLAGS
  182.         ;       SEGMENT OF INTERRUPTEE
  183.         ;          OFFSET  OF INTERRUPTEE
  184.         ; BP --->  PUSHED BP
  185.  
  186.         pusha
  187.         push    ds
  188.         push    es
  189.  
  190.         ; debug
  191.         mov    ax, 0b800h
  192.         mov    es, ax
  193.  
  194.         inc     WORD PTR cs:[ProfileData-2]
  195.  
  196.         mov    ax, cs:ProfileSegment
  197.         cmp    ax, 4[bp]
  198.         jne    SomeOneElse
  199.  
  200. Us:        mov    bx, 2[bp]
  201.         shr    bx, 1
  202.         and    bl, 0FCH
  203.         add    word ptr cs:[bx+ProfileData], 1
  204.         adc    word ptr cs:[2+bx+ProfileData], 0
  205.         jnc    IntExit
  206.  
  207.         dec    word ptr cs:[2+bx+ProfileData]
  208.  
  209.         jmp    IntExit
  210.  
  211. SomeOneElse:
  212.  
  213. IntExit:
  214.         pop    es
  215.         pop    ds
  216.         popa
  217.         pop    bp
  218.  
  219. TimerExit:    jmp    cs:[TimerChain]                    
  220.  
  221.  
  222. LastByte:                       
  223.  
  224. ;*******************************************************************************
  225. ;*                                                                             *
  226. ;*                            _InitPRF                          *
  227. ;* Purpose:                                                                    *
  228. ;* Initialises PRF                                                             *
  229. ;*                                                                             *
  230. ;*******************************************************************************
  231.  
  232.         PUBLIC    main
  233.  
  234. main        proc    near
  235.     
  236.         mov    ax, cs
  237.         mov    ds, ax            ;Data Seg for PRF
  238.  
  239.         cld
  240.  
  241.         mov    dx, OFFSET sPRF_Ok
  242.                    mov    ah, 9            ;print string
  243.         int    21h            ;MSDOS
  244.  
  245. ; See if PRF Sublayer is already loaded.
  246.  
  247.         mov    si, PRFInterrupt    ;get interrupt number
  248.         shl    si, 1
  249.         shl    si, 1            ;make into vector pointer
  250.         xor    ax, ax            ;will be segment zero
  251.         mov    es, ax            ;use ES
  252.         mov    ax, es:[si]        ;check vector is
  253.         or    ax, es:2[si]        ;zero (unused)
  254.         mov    dx, OFFSET sPRF_Loaded
  255.         je    PRFNotLoaded
  256.  
  257. PrintString:    mov    ah, 9            ;print string
  258.         int    21h            ;MSDOS
  259.  
  260.         mov    ax, 4c01h
  261.         int    21h            ;end process
  262.  
  263.  
  264. PRFNotLoaded:    
  265.  
  266. ; Set up the PRF interrupt vector so that programs may call the PRF.
  267.  
  268.         mov    si, PRFInterrupt
  269.         shl    si, 1
  270.         shl    si, 1
  271.         xor    ax, ax
  272.         mov    es, ax
  273.         mov    es:2[si], cs
  274.         mov    word ptr es:[si], OFFSET _PRF_SWEntry
  275.  
  276. ; Initialise timer interrupt chain
  277.                     
  278.         mov    bx, 20h                       
  279.         cli
  280.         mov    ax, es:[bx]    
  281.         mov    word ptr [TimerChain], ax
  282.         mov    ax, OFFSET TimerISR
  283.         mov    word ptr es:[bx], ax
  284.  
  285.         mov    ax, word ptr es:[bx+2]
  286.         mov    word ptr [TimerChain+2], ax
  287.         mov    ax, cs
  288.         mov    word ptr es:[bx+2], ax
  289.         sti
  290.  
  291. ;
  292. ; Terminate and stay resident with minimal (PSP) wastage
  293. ;
  294.  
  295. ; Calculate bytes to save
  296.  
  297.         mov    dx, ( ((OFFSET LastByte) - (OFFSET FirstByte)) + 256 + 16 ) / 16
  298.  
  299.         mov    ax, 03100h        ;KEEP PROCESS, no error
  300.         int    021h            ;MSDOS
  301.                                
  302. sPRF_Loaded:    db    'INT88 already used.', 13, 10, '$'
  303. sPRF_Ok:    db    "Profiling Tool            - "
  304.         db    "Version "
  305.         db    VERSION+'0'
  306.         db    '.'
  307.         db    REVISION+'0'
  308.         db    ':'
  309.         db    MODIFICATION+'0'
  310.         db    13, 10, '$'
  311.  
  312. main        endp
  313.  
  314. CODE        ends
  315.         end    main
  316.     
  317.  
  318.